home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_B.d64 / stress 2 main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  21KB  |  593 lines
  1. 0 rem stress 2  von daniel himmmel
  2. 2 rem --------  kultsoft/juni 1993
  3. 4 rem
  4. 6 rem copy me !!!----public domain
  5. 8 rem
  6. 10 rem ****************************
  7. 12 poke53280,0:poke53281,0:print"[147][152]"
  8. 14 if lo=0 then lo=1:load"stress 2 char",8,1
  9. 18 print"[147][152]":rem -- gaggenau ----------
  10. 20 printchr$(8)
  11. 22 print" [211]tress 2"
  12. 24 print" [208]rogrammiert von
  13. 26 [153]"sys str$aniel left$immel
  14. 28 print"[152] [203]ultsoft /[202]uni 1993
  15. 30 [153]"open str$ies schoene (NULL)rogramm ist (NULL)str$-(NULL)oft!":[141] 63000
  16. 32 [158] 58592
  17. 36 [153]"load(NULL)ird eine atnnleitung benoetigt ? (mid$/(NULL))wait";:[143] kultsoft software !
  18. 38 [161] a$:[139] a$[178]"" [167] [137] 38
  19. 40 [139] a$[178]"n" [167] [137] 100
  20. 42 [139] a$[178]"j" [167] [137] 46
  21. 44 [137] 38:[143] ************************
  22. 46 [153]"loadsysstr$ie atnnleitung :wait"
  23. 48 [153]"open ascreddie ist ein absolutes lenomputer-
  24. 50 print" spielefreak. [213]nd nun will er sich ein
  25. 52 [153]" neues chr$ame reinziehen, doch dazu muss
  26. 54 print" er erst in die [207]berstadt fahren, und
  27. 56 [153]" dort das (NULL)piel, das uebrigens (NULL)(NULL)val(NULL)right$chr$ 3
  28. 58 print" heisst, kaufen. [206]un liegt da ein
  29. 60 [153]" gewisses (NULL)roblem: (NULL)aemlich ascreddie
  30. 62 print" wohnt in der [213]nterstadt. [197]s gibt nur
  31. 64 [153]" einen (NULL)eg zur (NULL)berstadt, naemlich
  32. 66 print" die [213]-[194]ahn.":rem kultpower is aktivated
  33. 68 print" <[196]ruecke bitte die [211]pacetaste>":sys 58592:sys 58592:sys 58592
  34. 70 print"[147][158][196]ie [211]teuerung :[146]":rem******
  35. 72 print"[159] [205]it der [212]aste [206] fuer [206]orden, [211] fuer
  36. 74 [153]" (NULL)ueden, usw. kann man in die verschie-
  37. 76 print" denen [210]ichtungen gehen. [193]ndere [196]inge
  38. 78 [153]" kann man ausfuehren, indem man die
  39. 80 print" verschiedenen [214]erben benutzt, die
  40. 82 [153]" in dem (NULL)ext vorgegeben werden. (NULL)och
  41. 84 print" was, [215]oerter wie nimm, werden klein   "
  42. 85 print" geschieben und bei den [207]bjekten ist es  egal.
  43. 86 [153]" <(NULL)pace druecken>":[158] 58592:[158] 58592:[158] 58592
  44. 100 [151] 53272,20:[143] gross/grafik----------------------------zeichensatz^
  45. 110 [153]"loadlist
  46. 112 print"    [176][196][196][192][198][201]  [212]
  47. 114 [153]"    chr$       (NULL)
  48. 116 print"    [221]      [198][219][196]
  49. 118 [153]"    mid$asctanstr$ascright$  chr$  -ascstr$ (NULL)ascstr$right$ (NULL)ascstr$ascasc (NULL)str$asctanstr$
  50. 120 print"         [200]  [212]  [200]   [200]  [200] [199]     [212]
  51. 122 [153]"         chr$  (NULL)  chr$   -ascstr$exp /str$asclenright$ /lenstr$ascright$
  52. 124 print"    [173][196][198][192][196][203]  [202][210] [212]   [202][198][196]  [196][198][196][192][203] [196][198][192][198][203]
  53. 126 [153]"                            "
  54. 128 [153]"                       wait   "
  55. 130 [153]"                p wait    waitp "
  56. 132 [153]"                d wait    waitd "
  57. 134 [153]"                       wait   "
  58. 136 [153]"                            "
  59. 138 [153]"            <druecke space>"
  60. 140 [158] 58592:[158] 58592:[158] 58592
  61. 141 [158] 51200
  62. 142 v1$[178]" atnn der (NULL)and haengt ein (NULL)chluessel":v2$[178]"nimm"
  63. 143 v3$[178]" atnuf dem peekoden liegt ein (NULL)adiergummi":v4$[178]"nimm"
  64. 144 v5$[178]" vals klebt auch ein (NULL)augummi am peekoden":v6$[178]"nimm"
  65. 145 v7$[178]" (NULL)loetzlich siehst du wie ein etwa
  66. 146 v8$=" zehnjaehriges [203]ind am [210]ande des
  67. 147 v9$[178]" (NULL)arks steht und weint.":va$[178]"sprich"
  68. 148 vc$[178]"                             "
  69. 149 [137] 200
  70. 150 [143] uni-input-aus-64'er-02/92------
  71. 151 i$[178]""
  72. 155 le[178]38:te$[178]">":[151] 214,[194](214)[170]1:[151] 211,2[171][195](te$)[171]1
  73. 156 [158] 58732
  74. 157 [153] te$;" ";
  75. 158 p[178]0
  76. 159 [151]204,0
  77. 160 [151]198,0:[146] 198,1
  78. 161 [161]x$
  79. 162 [151]207,0:[151]204,1:[153]" cmd";
  80. 163 [139]p[177]0[175][198](x$)[178]20[167]i$[178][200](i$,[195](i$)[171]1):[153]"cmd cmd";:p[178]p[171]1:[137]159
  81. 164 [139][198](x$)[178]13[137]172
  82. 165 [139]p[178]le[137]159
  83. 166 [139]bs[178]0[175](x$[179]"0"[176]x$[177]"9")[137]159
  84. 167 [139]bs[178]1[175](x$[179]" "[176](x$[177][199](127)[175]x$[179][199](160)))[137]159
  85. 168 [153]x$;
  86. 169 i$[178]i$[170]x$
  87. 170 p[178]p[170]1
  88. 171 [137] 159
  89. 172 [142]
  90. 175 [143] inventarliste ausgeben ........
  91. 180 [153][199](13)
  92. 182 [153]"right$nventar:"
  93. 183 [153]" chr$eld:"ge"":[153]"---------------------------------------"
  94. 184 [153] key$" "rad$" "
  95. 185 [153] gum$" "blu$" "
  96. 186 [153] card$"
  97. 198 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
  98. 199 return:rem ************************
  99. 200 print"[147][158] [196]u stehst in deinem [218]immer, das einem":bs=1
  100. 202 print" [211]auhaufen gleicht. [193]ber eine kleine
  101. 204 [153]" valcke ist zugegebenermasen sauber.
  102. 206 print" [206]aehmlich die, in der dein wunder-
  103. 208 [153]" schoener len64 steht. right$m (NULL)orden liegt
  104. 210 print" die [218]immertuer, die geoeffnet ist.
  105. 212 [139] v1$[178]"" [167] [137] 214
  106. 213 [153]v1$
  107. 214 [153]" str$u kannst (NULL), inventar,"v2$"...
  108. 215 bs=1
  109. 216 gosub 150
  110. 217 if i$="" then goto 200
  111. 218 if i$="n" or i$="[206]" then goto 250
  112. 219 if i$="nehm [211]chluessel" or i$="nimm [211]hluessel" then goto 230
  113. 220 if i$="nehme [211]chluessel" or i$="nimm [211]chluessel" then goto 230
  114. 221 if i$="nehme schluessel" or i$="nimm schluessel" then goto 230
  115. 222 if i$="nim schluessel" or i$="nimm schluesel" then goto 230
  116. 223 if i$="inventar" then gosub 175
  117. 224 printchr$(13):print" [196]u kannst das leider nicht tun !"
  118. 225 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
  119. 226 goto 200
  120. 230 if key$="[211]chluessel" then goto 200
  121. 231 printchr$(13)
  122. 232 print" [196]u nimmst dir den [211]chluessel und
  123. 233 [153]" steckst ihn dir in die (NULL)asche deiner
  124. 234 print" [200]ose.":print" <[196]ruecke [211]pace>"
  125. 235 key$="[211]chluessel":v1$="":v2$=""
  126. 236 sys 58592:sys 58592:sys 58592
  127. 240 goto 200
  128. 250 print"[147] [206]un stehst du im [198]lur deines [200]auses.
  129. 252 [153]" vals sieht so aus, als haette dein
  130. 254 print" kleines [205]iezekaetzchen wieder einmal
  131. 256 [153]" einen seiner (NULL)obsuchtsanfaelle gehabt,
  132. 258 print" [196]enn das halbe [200]aus liegt in [211]chutt
  133. 260 [153]" und atnsche.
  134. 261 if v3$="" then goto 263
  135. 262 printv3$
  136. 263 print" [196]u kannst : [211],[207],[206],"v4$"..."
  137. 264 gosub 150:rem uni input aufrufen...
  138. 266 if i$="" then goto 250
  139. 267 if i$="[211]" or i$="s" then goto 200
  140. 268 if i$="[206]" or i$="n" then goto 300
  141. 270 if i$="[207]" or i$="o" then goto 350
  142. 271 if i$="nehme radiergummi" or i$="nehme [210]adiergummi" then goto 280
  143. 274 if i$="nimm radiergummi" or i$="nimm [210]adiergummi" then goto 280
  144. 275 if i$="inventar" then gosub 175
  145. 276 printchr$(13):print" [196]u kannst das leider nicht tun !"
  146. 277 print" <[196]ruecke [211]pace>":sys 58592:sys 58592
  147. 279 goto 250
  148. 280 printchr$(13)
  149. 282 if rad$="[210]adiergummi" then goto 250
  150. 284 print" [196]u nimmst dir den kleinen, unschuld-
  151. 286 [153]" igen (NULL)adiergummi und verstaust ihn
  152. 288 print" in deinen [203]angoroos [211]upershoes.
  153. 289 [153]" <str$ruecke (NULL)pace>":rad$[178]"(NULL)adiergummi":v3$[178]"":v4$[178]""
  154. 290 [158] 58592:[158] 58592:[158] 58592
  155. 295 [137] 250
  156. 300 [153]"load (NULL)un stehst du vor deinem left$aus.
  157. 302 print" [196]u kannst am oestlichen [197]nde der
  158. 304 [153]" (NULL)trasse ein (NULL)child mit der atnuf-
  159. 306 print" schrift '[195]64 forever !', oder
  160. 308 [153]" so aehnlich, erkennen. str$u kannst
  161. 310 print" ja hingehen wenn du willst.
  162. 312 [153]" right$m (NULL)estlichen (NULL)eil der (NULL)trasse geht
  163. 314 print" es zu einem kleinen [194]lumenladen.
  164. 316 [153]" str$u kannst : (NULL),(NULL),(NULL),...
  165. 318 gosub 150
  166. 320 if i$="" then goto 300
  167. 324 if i$="[211]" or i$="s" then goto 250
  168. 326 if i$="[215]" or i$="w" then goto 400
  169. 328 if i$="[207]" or i$="o" then goto 450
  170. 330 if i$="inventar" then gosub 175
  171. 331 printchr$(13):print" [196]u kannst das leider nicht tun !"
  172. 332 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
  173. 335 goto 300
  174. 350 print"[147] [206]un stehst in deiner kleinen [203]ueche,
  175. 352 [153]" auch hier sieht man wie deine (NULL)atze
  176. 354 print" getobt haben muss.
  177. 356 [153]" str$u kannst nach (NULL).
  178. 358 gosub 150
  179. 359 if i$="" then goto 350
  180. 360 if i$="w" or i$="[215]" then goto 250
  181. 362 if i$="inventar" then gosub 175
  182. 363 printchr$(13):print" [196]u kannst das leider nicht tun !"
  183. 364 print" <[196]ruecke [211]pace>":sys 58592:sys 58592: sys 58592
  184. 366 goto 350
  185. 400 print"[147] [206]un stehst du vor einem kleinen und
  186. 402 [153]" schoenen peeklumenladen. str$urch das (NULL)chau-
  187. 404 print" fenster kannst du wahre [194]erge von
  188. 406 [153]" peeklumen und eine wunderschoene,
  189. 408 print" allerdings etwas kleine [214]erkauferin
  190. 410 [153]" sehen.
  191. 415 if v5$="" then goto 417
  192. 416 printv5$
  193. 417 print" [196]u kannst in das [199]eschaeft, [207],"v6$"...
  194. 419 [141] 150
  195. 420 [139] i$[178]"" [167] [137] 400
  196. 422 [139] i$[178]"(NULL)" [176] i$[178]"o" [167] [137] 300
  197. 424 [139] i$[178]"inventar" [167] [141] 175
  198. 425 [139] i$[178]"gehe in geschaeft" [176] i$[178]"gehe in chr$eschaeft" [167] [137] 500
  199. 426 [139] i$[178]"nehme (NULL)augummi" [176] i$[178]"nimm (NULL)augummi" [167] [137] 435
  200. 427 [139] i$[178]"gehe geschaeft" [176] i$[178]"gehe chr$eschaeft" [167] [137] 500
  201. 428 [139] i$[178]"nehme kaugummi" [176] i$[178]"nimm kaugummi" [167] [137] 435
  202. 429 [139] i$[178]"gehe in chr$eschaeft"[176] i$[178]"gehe in geschaeft" [176]i$[178]"gehe rein"[137] 500
  203. 430 [139] i$[178]"betrete chr$eschaeft" [176] i$[178]"betrete geschaeft" [167] [137] 500
  204. 431 [139] i$[178]"betritt chr$eschaeft" [176] i$[178]"betritt geschaeft" [167] [137] 500
  205. 432 [139]i$[178]"geh in chr$eschaeft"[176]i$[178]"geh in geschaeft"[176]i$[178]"geh rein" [137] 500
  206. 433 [153][199](13):[153]" str$u kannst das leider nicht tun !"
  207. 434 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592:[137] 400
  208. 435 [153][199](13)
  209. 436 [153]" str$u blickst konzentriert drein,
  210. 437 print" waehrend du das trockene [203]augummi
  211. 438 [153]" verzweifelt versuchst vom peekoden los-
  212. 439 print" zuloesen. [206]ein, so geht das nicht !
  213. 440 [153]" str$enkst du dir, da brauch ich irgendein
  214. 441 print" [200]ilfsmittel !
  215. 443 [153]" (NULL)as fuer ein left$ilfsmittel willst du
  216. 444 print" benutzen ?([205]it'keins'kannst du weiter   spielen)
  217. 445 [141] 150:[139]i$[178]"" [167] [153]"load":[137] 436
  218. 446 [139] i$[178]"keins" [176] i$[178]"keines" [167] [137] 400
  219. 447 [139] i$[178]"(NULL)chluessel" [176] i$[178]"benutze schluessel" [167] [137] 490
  220. 448 [139] i$[178]"schluessel" [176] i$[178]"benutze (NULL)chluessel" [167] [137] 490
  221. 449 [153]"loadload":[137] 435
  222. 450 [153]"load (NULL)un stehst du bei der (NULL)lakatwand und
  223. 452 print" siehst, das es dahinter noch nach
  224. 454 [153]" (NULL)orden geht. (NULL)enn du schon in die
  225. 456 print" [210]ichtung blickst, dort liegt der
  226. 458 [153]" (NULL)nterstadtpark.
  227. 460 print" [196]u kannst nach [206] und [215],lies,...
  228. 462 [141] 150
  229. 464 [139] i$[178]"" [167] [137] 450
  230. 465 [139] i$[178]"inventar" [167] [141] 175
  231. 466 [139] i$[178]"lies" [176] i$[178]"lese" [167] [137] 475
  232. 467 [139] i$[178]"(NULL)" [176] i$[178]"n" [167] [137] 600
  233. 468 [139] i$[178]"(NULL)" [176] i$[178]"w" [167] [137] 300
  234. 469 [139] i$[178]"lies plakat" [176] i$[178]"lese plakat" [167] [137] 475
  235. 470 [139] i$[178]"lies (NULL)lakat" [176] i$[178]"lese (NULL)lakat" [167] [137] 475
  236. 471 [153][199](13):[153]" str$u kannst das leider nicht tun !"
  237. 472 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
  238. 474 [137] 450
  239. 475 [153][199](13):[153]" atnn der (NULL)and steht :
  240. 476 print" ' [204]ong live the [194]rotkaschten '. [196]u
  241. 478 [153]" hast dich also gehoerig verlesen !
  242. 480 print" [196]u solltest mal wieder zum [193]ugen-
  243. 482 [153]" arzt gehen...
  244. 484 print" <[208]ress [211]pace>"
  245. 486 sys 58592:sys 58592:sys 58592
  246. 487 goto 450
  247. 490 print"[147] [215]ow, wie bist du nur darauf gekommen?
  248. 491 [153]" (NULL)un kniest du schwitzend und stoehnend
  249. 492 print" ueber dem [203]augummi und versuchst ihn
  250. 493 [153]" mit dem (NULL)chluessel vom peekoden los-
  251. 494 print" zuloesen. [196]as die vorbeigehenden
  252. 495 [153]" (NULL)eute dich schraeg ansehen stoert":v5$[178]"":v6$[178]""
  253. 496 [153]" dich nicht, denn jetzt beginnt sich"
  254. 497 [153]" der (NULL)augummi zu loesen und das (NULL)under":gum$[178]"(NULL)augummi"
  255. 498 [153]" geschieht ! str$u hast den (NULL)augummi !!!    <str$ruecke (NULL)pace>"
  256. 499 [158] 58592:[158] 58592:[158] 58592:[137] 400
  257. 500 [153]"load (NULL)un stehst du inerhalb des peeklumen-
  258. 502 print" ladens. [196]u schaust dich um und siehst:
  259. 504 [153]" peeklumen ! (NULL)elch ein (NULL)ufall ! atnls dein
  260. 506 print" [194]lick auf die huebsche [214]erkauferin
  261. 508 [153]" faellt, wird dein (NULL)erstand ganz um-
  262. 510 print" nebelt und dein [201]nstinkthirn denkt
  263. 512 [153]" einiges (NULL)erschweintes (ich frage mich,
  264. 514 print" wo da der grosse [213]nterschied zu
  265. 516 [153]" ascreddies (NULL)ormalzustand liegen soll ?!?)
  266. 518 print"[145] [196]u bist ganz hingerissen von dem
  267. 520 [153]" (NULL)aedchen und so ganz uninteressiert
  268. 522 print" scheint sie an dir auch nicht zu sein!
  269. 524 [153]" str$u blinzelst ihr zu, sie blinzelt dir
  270. 526 print" zu, du blinzelst ihr wieder zu, sie
  271. 528 [153]" blinzelt dir... left$atn(NULL)(NULL) !!! right$st das hier
  272. 530 print" ein biliger [204]iebesroman oder ein
  273. 532 [153]" relativ ernsthaftes atndventure ?!?"
  274. 533 [153]" ascreddie, fuer dein (NULL)iebesleben hast du
  275. 534 print" auch noch nach dem [211]piel [218]eit !"
  276. 536 print" [193]lso alles noch mal von vorn.
  277. 538 [153]" <str$ruecke (NULL)pace>"
  278. 540 [158] 58592:[158] 58592:[158] 58592
  279. 542 [153]"load (NULL)un bist du im peeklumengeschaeft. str$u
  280. 544 print" blickst dich um und siehst alle
  281. 546 [153]" moeglichen und unmoeglichen (NULL)flanzen
  282. 548 print" ([196]ies ist schliesslich ein [195]omputer-
  283. 550 [153]" spiel !). (NULL)nd ganz nebenbei blickst
  284. 552 print" du verstohlen auf die wunderhuebsche
  285. 554 [153]" (NULL)erkauferin und misst mit einem
  286. 556 print" erfahrenem [194]lick ihre [207]berweite ab.
  287. 558 [153]" (NULL)ebrigens, du kannst dir peeklumen
  288. 559 print" kaufen (was man in einem [194]lumenladen
  289. 560 [153]" eigentlich erwarten kann).
  290. 562 print" [196]u kannst das [199]eschaeft verlassen und
  291. 564 [153]" peeklumen kaufen.
  292. 565 gosub 150
  293. 566 if i$="" then goto 542
  294. 568 if i$="verlasse [199]eschaeft" or i$="verlasse geschaeft" then goto 400
  295. 569 if i$="gehe raus" or i$="geh raus" then goto 400
  296. 570 if i$="kaufe [194]lumen" or i$="kaufe blumen" then goto 580
  297. 571 if i$="kaufe" or i$="benutze [199]eld" then goto 580
  298. 572 if i$="benutze geld" or i$="kaufe pflanzen" then goto 580
  299. 573 if i$="inventar" then gosub 175
  300. 574 if i$="use money" or i$="kaufe [208]flanzen" then goto 580
  301. 575 printchr$(13):print" [196]as kannst du leider nicht tun !"
  302. 576 print" <[196]ruecke [211]pace>":sys 58592:sys 58592:sys 58592
  303. 579 goto 542
  304. 580 if ge=0 then goto 595
  305. 581 printchr$(13):print" [196]u kaufst dir einen schoenen,
  306. 582 [153]" duftenden peekund peeklumen und bezahlst.
  307. 583 print" [196]ie [208]flanzen kosten uebrigens 8 [205]ark.
  308. 584 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
  309. 586 blu$[178]"peeklumen":ge[178]ge[171]8:[137] 542
  310. 595 [153][199](13):[153]" str$u kannst dir leider keine peeklumen
  311. 596 print" kaufen, oder willst du zum [196]ieb werden?
  312. 597 [153]"on (NULL)ein ? chr$ut so ! right$ch naemlich bin ein
  313. 598 print" ehrliches [208]rogrammm !!! ":print" <[196]ruecke [211]pace>"
  314. 599 sys 58592:sys 58592:sys 58592:goto 542
  315. 600 print"[147] [206]un stehst du mitten im [211]tadtpark.
  316. 602 [153]" str$u siehst das hier viele (NULL)inder herum-
  317. 604 print" tollen und [211]pass haben. [201]st ja
  318. 606 [153]" eigentlich verstaendlich, denn unser
  319. 608 print" [208]ark ist ja wirklich ein idyllisches
  320. 610 [153]" (NULL)laetzchen.
  321. 615 if v7$="" then goto 620
  322. 616 printv7$
  323. 617 printv8$
  324. 618 printv9$
  325. 620 print" [196]u kannst [206], [211],"va$"...
  326. 622 [141] 150
  327. 623 [139] i$[178]"" [167] [137] 600
  328. 624 [139] i$[178]"inventar" [167] [141] 175
  329. 625 [139] i$[178]"s" [176] i$[178]"(NULL)" [167] [137] 450
  330. 626 [139] i$[178]"(NULL)" [176] i$[178]"n" [167] [137] 750
  331. 627 [139] i$[178]"sprich" [176] i$[178]"sprich mit junge" [167] [137] 650
  332. 628 [139] i$[178]"sprich mit mid$ungen" [176] i$[178]"spreche" [167] [137] 650
  333. 629 [139] i$[178]"gib (NULL)augummi" [176] i$[178]"gib kaugummi" [167] [137] 700
  334. 630 [139] i$[178]"gebe (NULL)augummi" [176] i$[178]"gebe kaugummi" [167] [137] 700
  335. 631 [139] i$[178]"gib (NULL)augummi an mid$unge" [176] i$[178]"gib kaugummi an junge" [167] [137] 700
  336. 632 [139] i$[178]"gebe kaugummi an junge" [176] i$[178]"gib kaugummi an mid$unge" [167] [137] 700
  337. 633 [139] i$[178]"gebe (NULL)augummi an mid$unge" [176] i$[178]"gib (NULL)augummi an mid$unge" [167] [137] 700
  338. 634 [139] i$[178]"gebe kaugummi an kind" [176] i$[178]"gebe (NULL)augummi an (NULL)ind" [167] [137] 700
  339. 635 [139] i$[178]"gib (NULL)augummi an (NULL)ind" [176] i$[178]"gib kaugummi an kind" [167] [137] 700
  340. 636 [139] i$[178]"sprich mit kind" [176] i$[178]"sprich mit (NULL)ind" [167] [137] 650
  341. 637 [139] i$[178]"spreche mit jungen" [176] i$[178]"spreche mit mid$ungen" [167] [137] 650
  342. 638 [139] i$[178]"spreche mit (NULL)ind" [176] i$[178]"spreche mit kind" [167] [137] 650
  343. 639 [153][199](13):[153]" str$as kannst du leider nicht tun !"
  344. 640 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
  345. 645 [137] 600
  346. 650 [153][199](13):[153]" str$u sprichst den mid$ungen auf sein
  347. 651 print" [208]roblem an, und er antwortet, das
  348. 652 [153]" er seinen (NULL)augummi verloren hat.
  349. 653 print" [196]arauf fragst du ihn, was an seinem
  350. 654 [153]" (NULL)augummi den so besonderes waere,
  351. 655 print" darauf entgegnet er, weshalb ich das
  352. 656 [153]" wissen wollte, darauf antwortete ich
  353. 657 print" wiederum, das ich ihm vielleicht
  354. 658 [153]" helfen koennte.
  355. 660 print" <[196]ruecke [211]pace>"
  356. 661 sys 58592:sys 58592:sys 58592
  357. 662 print"[147] [196]araufhin nuschelt er leise vor
  358. 663 [153]" sich hin, das der (NULL)augummi (NULL)agische
  359. 664 print" [203]raefte haette (wir rutschen in den
  360. 665 [153]" ascantasiebereich ab, dabei haette
  361. 666 print" dieses wundervolle [[200]ae ?!?] [193]dventure
  362. 667 [153]" eigentlich ernst sein sollen. left$ey,
  363. 668 print" warte mal ! [201]ch [damit meine ich mich]
  364. 669 [153]" bin doch der (NULL)rogrammierer, oder
  365. 670 print" liege ich da falsch ? [193]lso, dann kann
  366. 671 [153]" right$lenleft$ ja festlegen was passieren soll,
  367. 672 print" oder etwa nicht ? [199]enau, ...
  368. 673 [153]" --- breaking for message ---"
  369. 674 [153]" <str$ruecke (NULL)pace>"
  370. 675 [158] 58592:[158] 58592:[158] 58592
  371. 676 [153]" (NULL)(NULL)(NULL)(NULL) --- (NULL)rogrammierer wurde in
  372. 677 print" [201]rrenanstalt eingeliefert --- [211][212][207][208] ---
  373. 678 [153]" (NULL)eru left$immel fuehrt (NULL)rojekt nun
  374. 679 print" zu [197]nde --- [211][212][207][208]
  375. 680 [153]" <str$ruecke (NULL)pace>"
  376. 681 [158] 58592:[158] 58592:[158] 58592
  377. 685 [153]"load str$er mid$unge sagte, das es sein
  378. 686 print" [204]ieblingskaugummi war, und das
  379. 687 [153]" er dafuer alles andere hergeben wuerde!
  380. 688 print" [193]lles, fragst du mit einem seltsamen
  381. 689 [153]" (NULL)euchten in deinen atnugen, auch dein
  382. 690 print" [212]aschengeld ? [193]uch das, antwortet er
  383. 691 [153]" selbstbewusst.
  384. 692 print" [203]annst du mir mein [203]augummi zurueck-
  385. 693 [153]" bringen ? right$st seine lezte ascrage, die
  386. 694 print" er ploetzlich wieder mit weinerlicher
  387. 695 [153]" (NULL)timme spricht.
  388. 696 print" <[196]ruecke [211]pace>"
  389. 697 sys 58592:sys 58592:sys 58592
  390. 698 goto 600
  391. 700 if gum$="" then goto 740
  392. 701 printchr$(13):print" [193]ls du ploeztlich den alten [203]au-
  393. 702 [153]" gummi aus deiner (NULL)asche ziehst,
  394. 703 print" bekommt der [202]unge ploeztlich grosse
  395. 704 [153]" atnugen und blickt dich erfreut an.
  396. 705 print" [193]ls er jedoch zugriff um sein [212]eil
  397. 706 [153]" an sich zu nehmen ziehst du blitz-
  398. 707 print" schnell deine [200]and zurueck.
  399. 708 [153]" valrst meine peekelohnung, sagtest du,
  400. 709 print" also dein [212]aschengeld ! [200]ae,hae,hae...
  401. 710 [153]" str$as (NULL)ind bekam noch groessere atnugen
  402. 711 print" als es ohnehin schon hatte, und du
  403. 712 [153]" befuerchtest, das sie noch heraus-
  404. 713 print" kullern. [196]och ploetzlich [193]enderte sich
  405. 714 [153]" das (NULL)erhalten des mid$ungen. valr kramte
  406. 715 print" in den [212]aschen seiner [202]eans herum und
  407. 716 [153]" murmelte etwas das wie '(NULL)inderaus-
  408. 717 print" beuter' oder '[199]eldgieriges [193]rsch'
  409. 718 [153]" <str$ruecke (NULL)pace>"
  410. 719 [158] 58592:[158] 58592:[158] 58592
  411. 720 [153]"load str$och die (NULL)iebe zu seinem (NULL)augummi
  412. 721 print" war groesser als seine [215]ut. [197]r
  413. 722 [153]" drueckte dir schliesslich einen
  414. 723 print" [218]ehn-[205]arkschein in die [200]and, und war
  415. 724 [153]" froh endlich seinen (NULL)augummi wieder-
  416. 725 print" zubekommen. [196]u warfst ihm den
  417. 726 [153]" (NULL)augummi gutgelaunt zu und er fing ihn
  418. 727 print" gekonnt auf und stopfte ihn sich
  419. 728 [153]" sofort in den (NULL)und und kaute darauf
  420. 729 print" herum. [197]rst knirschte es noch ein
  421. 730 [153]" bischen von dem (NULL)and aber dann lief
  422. 731 print" es wie geschmiert.
  423. 732 [153]" <str$ruecke (NULL)pace>"
  424. 733 [158] 58592:[158] 58592:[158] 58592
  425. 734 gum$[178]"":ge[178]10:v7$[178]"":v8$[178]"":v9$[178]"":va$[178]""
  426. 735 [137] 600
  427. 740 [143]ntchr$(13):print" str$as kannst du nicht mehr, da
  428. 741 rem=t" 1. [196]u keinen [203]augummi mehr besitzt.
  429. 742 [143]nt" 2. str$er mid$unge nicht mehr da ist.
  430. 743 remnt" 3. [196]er [202]unge schon seinen [203]augummi
  431. 744 [143]nt"    von dir bekommen hat.
  432. 745 remnt" <[196]ruecke [211]pace>"
  433. 746 rem 58592:sys 58592:sys 58592
  434. 748 goto 600
  435. 750 print"[147] [206]un stehst du vor der [213]-[194]ahn [211]tation.
  436. 751 [153]" valine alte, haessliche ascrau steht neben
  437. 752 print" dir und verkauft [198]ahrkarten, ohne
  438. 753 [153]" die du nicht in die (NULL)-peekahn hinein-
  439. 755 print" kommst. [196]ie alte [198]rau schaut dich
  440. 756 [153]" mit einem sehr seltsamen peeklick an,
  441. 758 print" der dir das [194]lut in den [193]dern ge-
  442. 759 [153]" frieren laesst. (NULL)o eine alte (NULL)chachtel!
  443. 760 print"[145] denkst du dir und willst fliehen,
  444. 761 [153]" doch der (NULL)pielerinstinkt haelt dich
  445. 762 print" davon ab, den [211]chwanz einzuziehen,
  446. 763 [153]" und abzuhauen.
  447. 764 print" [196]u kannst mit der alten [198]rau sprechen
  448. 765 [153]" und nach (NULL). atnusserdem kannst du noch
  449. 766 print" in die [213]-[194]ahn einsteigen (aber nur
  450. 767 [153]" wenn du eine ascahrkarte besitzt, wir
  451. 768 print" sind ja keine [211]chwarzfahrer, gelle!)
  452. 770 [141] 150
  453. 771 [139] i$[178]"" [167] [137] 750
  454. 772 [139] i$[178]"inventar" [167] [141] 175
  455. 773 [139] i$[178]"s" [176] i$[178]"(NULL)" [167] [137] 600
  456. 774 [139] i$[178]"sprich mit ascrau" [176] i$[178]"sprich mit frau" [167] [137] 800
  457. 775 [139] i$[178]"spreche mit ascrau" [176] i$[178]"spreche mit frau" [167] [137] 800
  458. 776 [139] i$[178]"spreche mit alter ascrau" [176] i$[178]"spreche mit alter frau" [167] [137] 800
  459. 777 [139] i$[178]"sprich mit alter ascrau" [176] i$[178]"sprich mit alter frau" [167] [137] 800
  460. 778 [139] i$[178]"sprich mit alter ascrau" [176] i$[178]"sprich mit alter frau" [167] [137] 800
  461. 779 [139] i$[178]"steige in die u-bahn ein" [167] [137] 850
  462. 780 [139] i$[178]"steige in die (NULL)-peekahn ein" [167] [137] 850
  463. 781 [139] i$[178]"gehe in u-bahn" [176] i$[178]"gehe in (NULL)-peekahn" [167] [137] 850
  464. 782 [139] i$[178]"benutze (NULL)-peekahn" [176] i$[178]"benutze u-bahn" [167] [137] 850
  465. 783 [139] i$[178]"fahre mit (NULL)-peekahn" [176] i$[178]"fahre mit u-bahn" [167] [137] 850
  466. 784 [139] i$[178]"kaufe fahrkarte" [176] i$[178]"kaufe ascahrkarte" [167] [137] 800
  467. 785 [139] i$[178]"benutze chr$eld" [176] i$[178]"benutze geld" [167] [137] 800
  468. 786 [139] po[178]1 [175] i$[178]"gib blumen" [167] [137] 820
  469. 787 [139] po[178]1 [175] i$[178]"gib peeklumen" [167] [137] 820
  470. 788 [139] po[178]1 [175] i$[178]"gebe blumen" [167] [137] 820
  471. 789 [139] po[178]1 [175] i$[178]"gebe peeklumen" [167] [137] 820
  472. 790 [139] po[178]1 [175] i$[178]"gebe peeklumen an ascrau" [167] [137] 820
  473. 791 [139] po[178]1 [175] i$[178]"gib peeklumen an ascrau" [167] [137] 820
  474. 792 [139] po[178]1 [175] i$[178]"gib blumen an frau" [167] [137] 820
  475. 793 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
  476. 794 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
  477. 795 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
  478. 796 [139] po[178]1 [175] i$[178]"gebe blumen an frau" [167] [137] 820
  479. 797 [153][199](13):[153]" str$as kannst du leider nicht tun !"
  480. 798 [153]" <str$ruecke (NULL)pace>":[158] 58592:[158] 58592:[158] 58592
  481. 799 [137] 750
  482. 800 [153][199](13)
  483. 801 [153]" str$u gehst zu der ascrau hin und fragst
  484. 802 print" sie ob du eine [198]ahrkarte haben kannst,
  485. 803 [153]" darauf antwortet sie, das sie nur
  486. 804 print" noch eine hatt und diese selber
  487. 805 [153]" braucht. (NULL)erzweifelt versuchst du ihr
  488. 806 print" zu erklaeren, das dein [204]eben davon
  489. 807 [153]" abhaengt, das du in die (NULL)berstadt
  490. 808 print" kommst. [196]och scheinbar versteht sie
  491. 809 [153]" nicht, was du meinst. atnlles was sie
  492. 810 print" sagt, ist, das du fuer ein bischen
  493. 811 [153]" atnbwechslung sorgen sollst in ihrem
  494. 812 print" grauen [204]eben als [198]ahrkarten-
  495. 813 [153]" verkaueferin.":po[178]1
  496. 814 [153]" <str$ruecke (NULL)pace>"
  497. 816 [158] 58592:[158] 58592:[158] 58592
  498. 819 [137] 750
  499. 820 [153][199](13)
  500. 821 [153]" str$u alte ascrau blickt dich unglauebig
  501. 822 print" an und faellt beinahe in [207]hnmacht
  502. 823 [153]" und in der ascreude drueckt sie dir
  503. 824 print" die [198]ahrkarte in die [200]and, dann
  504. 825 [153]" nimmt sie denn peeklummenstrauss und
  505. 826 print" rennt uebergluecklich davon...
  506. 827 card$[178]"ascahrkarte":po[178]2:blu$[178]""
  507. 830 [153]" <str$ruecke (NULL)pace>"
  508. 831 [158] 58592:[158] 58592:[158] 58592
  509. 832 [137] 750
  510. 850 [153][199](13):[139] card$[178]"" [167] 2000
  511. 851 [153]" str$u steigst uebergluecklich in die
  512. 852 print" [213]-[194]ahn ein und faehrst deinem heiss-
  513. 853 [153]" ersehnten (NULL)iel entgegen.     "
  514. 854 [153]" <str$ruecke (NULL)pace>"
  515. 855 [158] 58592:[158] 58592:[158] 58592
  516. 856 [143]rint"load (NULL)ochmal spielen ?(mid$/(NULL))
  517. 857 remet po$:if po$="" then goto 857
  518. 858 remf po$="j" then run
  519. 859 remf po$="n" then goto 900
  520. 860 remoto 857
  521. 900 print"[147] [201]ch hoffe ihnen hat das [211]piel
  522. 902 [153]" ein wenig (NULL)pass gemacht.
  523. 904 print" [196]anke fuer's mitspielen.
  524. 907 [153]" atnuf (NULL)iedersehen in einem naechsten
  525. 908 print" [211]piel von mir !
  526. 910 [143] sys 64738
  527. 2000 [153]" left$ey, du peeketrueger! str$u besitzt gar "
  528. 2001 [153]" keine ascahrkarte! (NULL)illst du mich
  529. 2002 print" bescheissen, oder was?!
  530. 2004 [129]a[178]0[164]4000:[130]:[153]" (NULL)o schnell kann's gehen!"
  531. 2006 [153]" str$as (NULL)rogramm ist geloescht, viel (NULL)pass
  532. 2008 print" beim [206]euladen! [212]schuessssssss!
  533. 2010 [162]
  534. 62999 [128]
  535. 63000 [129]x[178]1[164] 24:[151] 54272[170]x,0: [130]
  536. 63001 s[178]54272
  537. 63002 [151] s[170]24,7
  538. 63003 [151] s[170]5,12[172]16[170]0
  539. 63004 [151] s[170]6,15[172]16[170]10
  540. 63005 [129] x[178] 255 [164] 100[169] [171]1
  541. 63006 [151] s[170]1,x
  542. 63007 [151] s[170]4,17
  543. 63008 [129] d[178]1 [164] 10 : [130] d
  544. 63009 [130] x
  545. 63010 [151] s[170]24,15
  546. 63011 [151] s[170]1,15
  547. 63012 [151] s[170]4,128
  548. 63013 [142]
  549. 63015 s[178]54272
  550. 63016 [151] s[170]24,15:[151] s[170]1,110
  551. 63017 [151] s[170]5,9:[151] s[170]6,9
  552. 63018 [151] s[170]4,17:[151] s[170]4,16
  553. 63019 [142]
  554. 63020 [129] i[178]32770 [164] 32778
  555. 63021 [135] a:[151] i,a
  556. 63022 [130] a
  557. 63023 [131] 010,128
  558. 63024 [131] 195,194
  559. 63025 [131] 205,056
  560. 63026 [131] 048,088
  561. 63027 [131] 000
  562. 63029 [142]
  563. 63030 [151] 2050,1
  564. 63031 [158] 42291
  565. 63032 [151] 46,[194](35)
  566. 63033 [151] 45,[194](781)[170]2
  567. 63035 [156]
  568. 63039 [142]
  569. 63040 [151] 44,[194](46)[170]1
  570. 63041 :
  571. 63047 [151] 44,8
  572. 63049 [142]
  573. 63050 [143] -----------------
  574. 63051 [143] -programmiert   -
  575. 63052 [143] -von            -
  576. 63053 [143] -daniel himmel  -
  577. 63054 [143] -76571 gaggenau -
  578. 63055 [143] -----------------
  579. 63056 [143]
  580. 63057 [143] dieses programm
  581. 63058 [143] ist public domain
  582. 63059 [143] software
  583. 63060 [143] und ist damit
  584. 63061 [143] frei kopierbar !
  585. 63062 [143]
  586. 63063 [143]
  587. 63064 [143] copy me !!!
  588. 63065 [143] -----------
  589. 63066 [143] data house -> public domain
  590. 63067 [143] husumer strasse 13
  591. 63068 [143] 34246 vellmar
  592. 63069 [143] ------------------
  593.